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"FACILITY: VMS-specific library 
ABSTRACT: The routines in this module merge an image into PO or P1 space. 
ENVIRONMENT : 


AUTHOR: Kathleen D. Morse , CREATION DATE: 10-Jan-80 
MODIFIED BY: 


v03-002 LJK0277 Lawrence J. Kenah ay 19 
Do not reorder privileged vectors until dine Ix been called. 
This change reflects the change in the way that privilege 
vectors are added to the dispatch Lists. 


v03-001 900261 Lawrence J. Kenah 8-F eb-1984 
low the and change mode vectors that are part of an 
focne mapped into Pl space to survive image rundown. 
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FILNAM=4 

DFLTNAM=8 
HDRBUF =12 
RETADR=16 
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.SBTTL DECLARATIONS 
INCLUDE FILES: 


: EQUATED SYMBOLS: 


; OFFSETS (FROM AP) FOR INPUT ARGUMENT LIST FOR LIBSPx_MERGE 


Address of image file name descriptor 
Address of default file name descriptor 
f image header buffer 

uadword for range of 
virtual addresses actually mapped 
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; the image. 
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~SBTTL LIBSPx_MERGE = Merge an Image into PO or P1 Space 

FUNCTIONAL DESCRIPTION: 

This routine merges an image into PO or P1 space. 


If called at LIB$PO MERGE a simple merged image activation is performed, 
; placing the designated image at the high address end of PO space. 


A more complicated sequence of events is required to merge an image into 

; the low address end of P1 space. Because the image activator must know the 

; exact amount of P1 space needed for the image being merged, LIB$P1_MERGE 

; first merges the apage nto PO space with the expand region option. After 

; this merge is comple ed, the routine computes the P1 range that will hold 
This is done by Finding the first free P1 page and computing 

; the number of pages just mapped into P ogace. A Pl virtual address range 

; is then computed. The pages negeee into PO space are deleted and second 

; merge image activate is done. is time the expand region ortion is turned 

; off and the exact P1 range needed is specified. 


; CALLING SEQUENCE: 


CALLS #4,LIBSPx_MERGE 


; INPUT PARAMETERS: 
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FILNAM(AP) = Address of image file name descriptor 

DFLTNAM(AP) = Address of default file name descriptor 

HDRBUF(AP) = Address of 512-byte image header buffer 

RETADR(AP) = Address of quadword for range of virtual addresses mapped 
IMPLICIT INPUT: 

none 
OUTPUT PARAMETERS: 

none 


IMPLICIT OUTPUT: 


The address renee actually mapped is returned in the RETADR quadword 
provided as an input parameter. 


The first block of the image header is copied to the 512-byte buffer 
provided as an input parameter. 


COMPLETION CODES: 
RO Low bit set => Image successfully merged 


SS$_NORMAL 
RO low bit clear => Error occurred while activating image 
SS$_NOPRIV Entry was as LIB$P1_MERGE and process 


does not have CMKRNC privilege. 
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Various errors returned by SIMGACT and S$DELTVA 
SIDE EFFECTS: 


If entry is at LIBSP1_MERGE, the permanent percses of Pl space is 
expanded to accommodate the merged image. The message and change 
mode vectors are reordered ang he reset points are edjustee to 
allow any such vectors in a Pl image to survive image rundown. 
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VOe-000 LIBSPs MERGE - Merge an Image into PO or ~SEp=19 t besa 41:00 VMSLIB. SR raya CIBMERGE MAR; 1 ’ 
0 .ENABL LOCAL_BLOCK 
0000 -PSECT _LIBSCODE PIC,SHR,BYTE,RD,EXE,NOWRT 
154 LIBSPO MERGE: : 
155 ORD “M<R2,R3,R4,R5,R6,R7> REGISTER SAVE MASK 
57 30 136 hove #<IACSM_MER ét 71h c$m_ EXPREG> : IMAGE ACTIVATION FLAGS 
09 13 BRB 10$ SOIN COMMON CODE PATH 
FC 138 serials, gat. * AM<R2,R3,R4,R5,R6 “REGISTER SAVE thse, 
57 00009970 gf 6 16 MOVL <IACSM_MERGE RSA. EXPREGTIACSM. P PIMERG 
7E FF BF 9 3C 162 10$:  MOV2WL #*X3FF,=(SP) SEND VA FOR BL Cee RT po VA RANGE 
7E 0200 8F 3¢ 16 MOVZWL #*X200,-(SP) ‘START VA FOR BLUEPRINT PO VA RANGE 
54 SOS 00 164 MOVL SP,R4 SADR OF INPUT VA 
7E «7 165 CLRQ 20s = §P) RETURN VA RANGE 
55 SE 00 166 MOVL = SP,R5 SADR OF RETURN VA RANGE 
7E «7C 167 CLRO 0 = (§P) [PLACE TO HOLD, ip 
56 «SE. ODO 168 MOVL — SP,R6 SADR OF IDENT QUADWORD 
169 SIMGACT_ ° :PO MERGE IMAGE ACTIVATE CALL 
170 “NAME =@F ILNAM(AP) ,= FILE NAME 
171 DFLNAM=@DFLTNAM(AP),-  :DEFAULT FILE NAME 
1% HDRBUF =@HDRBUF (AP) , : IMAGE HEADER BUFFER ADDRESS 
17 CTL=R7,- SIMAGE ACTIVATION FLAGS 
174 INADR=(R45,- ‘INPUT BLUEPRINT poe RANGE 
175 RETADR=( 55,- ‘RETURN VA RANGE 
176 IDENT =(R6 ‘NO IDENT PARAMET 
79 50 177 BLBC RO, IMGACT ‘BR IF ERROR IN SIMGACT 
4c 57 06 178 BBC #IACSV PIRERGE, R7,50$ :ALL DONE IF PO MERGE 
26 65 179 MOVQ (R5) ,R2 ;R2=START VA, R3=END VA (MAPPED) 
5352 180 SUBL2 R2,R3 [GET # OF BYTES MAPPED 
00000000' 9F 181 OVL.  a@#CTLS$GL_PHD,RC :GET ADR OF PROCESS HEADER 
04 AG 30 A0 OO0001FF B&F 188 ADDL3 #*X1FF,PADSL_FREPIVA(RO) .4(R4) GET, ND VA IN P1 SPACE 
04 AG 53 18 SUBL3 RS-4CRA), (RAT :GET START NIN” P1 SPAC 
184 SDELTVA_S :DELETE BO VIRTUAL ADDRESS RANGE MAPPED 
185 INADR=(RS) 'VA RANGE RETURNED BY SIMGACT 
48 50 186 BLBC _—- RO, 100$ ‘BRANCH IF ERROR IN 
187 ASSUME IAC$V_EXPREG LE 7 ;BIT MUST BE IN LOW-ORDER BYTE 
57 20 188 BICB2  #1AC$A_EXPREG,R7 STURN OFF EXPREG BIT BEFORE P1 ACTIVATE 
189 SIMGACT_S - ‘NOW ACTIVATE IMAGE INTO P1 SPACE 
190 NAME =a@F ILN ),- [FILE NAME 
191 DFLNAM=@DFLTNAM(AP),- ;DEFAULT FILE NAME 
198 HDRBUF=@HDRBUF(AP),- =; IMAGE HEADER BUFFER ADDRESS 
19 IMGCTL=R7,- SIMAGE ACTIVATION FLAGS 
194 INADR=(R45,- tINPUT EXACT P1 RA 
195 RETADR=(R55,- SRETURN VA RANGE 
196 IDENT=(R [NO IDENT PARAMET 
29 50 19 BLBC _—RO, IMGACT_ERR :BRANCH IF ERROR IN SIMGACT 
198 50$:  SIMGFIX_S [PERFORM ADDRESS RELOCATION 
1F 50 199 BLBC “RO, IMGACT SQUIT IF ERROR OCCU 
13 57 06 0 BBC ay Acsv SIRERCE, R7,75$  :ALL DONE IF PO MERGE 
5 1 PUSHL R PASS RETADR ARRAY TO KERNEL MODE 
01 é PUSHL #1 [ONE ARGUMENT FOR 
SCMKRNL_S - 3SET A NEW CONTROL REGION BASE 
, “ROUT IN=REORDER_VECTOR - : AND MANIPULATE VECTORS 
10 BC 65 6 75$: mova CRS) aRETADR(AP) :SET RETURN VA RANGE ACTUALLY MAPPED 
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D 
Wnte PO or "gr 


mpyzee #SS$_NORMAL ,RO 


? 
OB 100$: RET 
10 IMGACT_ERR: 
i ADDL 
1 
1% SDELTVA 
16 MOVL 
1 BRB 
18 


cr GE IMAGE ACTIVATE 


di pe AT ALL MAPPED? 
F NOTHING ere (SKIP $DELTVA) 


L ADDRESS RANGE MAPPED 
Y SIMGACT 


;REMEMBER RETU Ne STAT 
:DELETE PO ius 


RETU 
:RESTONE On GINAL ERROR CODE 
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- SUBTITLE REORDER_VECTOR = Reorder Privileged Vector List 


Functional Description: 
This routine scans the various privileged vector Lists and reorders 
each List so that the vectors that point into the image that was just 
activated into P1 space precede the other vectors. In addition, the 
cells that contain ni reset points are altered to locate the first 
vector that is NOT in the image just mapped. 


The net result of this change is that the vectors associated with an 
image permanently mapped into P1 space survive image rundown. 


Input Parameter: 


4(AP) = Address of tyye.engwere array that describes the address 
range into which the image was just mapped. 


: Implicit Input: 

: CTLSA_DISPVEC = The address of two devoted to dispatch vectors 
3 for kernel, exec, rundown, and message sections. 

: IACSAW_VECRESET = The address of a four-word ervey that contains the 
; reset points for each of the four dispatch tables. 

: Output Parameters: 

: none 

: Implicit Ou put: 

; If any of the addresses in any of the vectors below the reset point 

; are located in the image just mapped into Pl space, these vectors are 


switched around and the reset point modified so that the vectors 
survive image rundown. 
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; Calling Sequence: 
SCMKRNL routin = REORDER_VECTOR 


ABSOLUTE MODE = “X9F 
JSB_ABSOCUTE = ABSOLUTE_MODE@8 ! OP$_JSB ; Opcode and mode for JSB @#address 
VECTOR_SIZE ; Six bytes in such an instruction 


VECTOR_PAGE 56 ; One half page for each vector 
VECTOR_COUNT = 4 ; There are four of them 
REORDER_VECTOR: 
0056 -WORD “M<R2,R3,R4,R5> 
52 os AC D MOVL 4(A ; Save address range pointer in R2 
54  00000000'9F ODE MOVAL asCTL$A_DISPVEC,R4 ; oat base address of vector pages 
55 D4 CLRL R5 ; RS is an index on the section type 


3; The outer loop is executed for each different type of dispatch vector 
108: MOVZWL @M#IACSAW_VECRESETCRS5),- ; Get initial reset point 
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EE 77 
50 654 g0 33 8 ADDL2 kR4,R0 ; Convert offset to an address 
51 02 Ad E : 7 MOVAB 2(RO),R1 : Point R1 to first JSB dest ination 
i ? ; The inner loop is executed for each vector in the page 
9F16 BF 89 B1 a : 208: CMPW (RO)+,#JSB_ABSOLUTE 3; First two artes s of 458, Saddrese? 
7, oe FA 4 BNEQ 50$ 3; Nope. Must be end of 
62 90 D1 are 5 CMPL (RO), (R2) : Is address below , Ri, Limit? 
1 1F FF § BLSSU 40$ 3; Yup, skip to next vecto 
04 A2 60 01 0101 CMPL (RO) ,4(R2) ; Is address above uprer Limit? 
11 1A Q1 ; § BGTRU 40$ ; Yup, skip to next vector 
es oe 1 CMPL RO,R1 ; Does RESET locate the same place? 
09 =«=13 ’ ? $' BEQL 30$ ; Yes. No exchange ne-essary 
ioe 35 ; The next three instructions exchange the two vectors locatea by RO and R1. 
53 61 dO O10C 94 MOVL (R1),R3 ; Save a vector 
61 $9 DO O10F 95 MOVL (RO), (R1) ; Move the new vector up the List 
60 5 dO Baie 38 MOVL R3, (RO) ; Restore the saved vector in a new home 
51 06 CO O13 4 30$: ADDL #VECTOR_SIZE,R1 ; Advance the reset point 
50 04 co 0118 00 40$: ADDL g ; Skip over address 
d8 11 118 01 BRB 20§ t se. and get the next vector 
0110 $8 ; At this point, we have successfully traversed a vector page. We need 
Bie be ; to establish a new reset point. 
51 54 Ce Oi D 06 50S: SUBL Get new reset offset 
00000000'EF45 51 02 A3 0120 307 SUBW3 Ri 1ACSAW_ VECRESETERS4 ; Store it minus bias 
54 00000100 8F CO 0129 308 ADDL ren OR_PAGE7R4 ; Advance base of next ‘page’ 
B2 55 04 Fe 4 ? 24 AOBLSS #VECTOR_ “COUNT ,R5,10$ ; Have we done all vector sections? 
Q00000000'GF 62 p00 0134 11 MOVL (R2),G*CTLSGL_CTLBASVA ; Set new control region base address 
50 01 3c 0138 1 MOVZWL #SS$_ NORMAL ,RO ; Indicate success 
04 Bie 1 RET 3 ee. and return 
013F 14 
0O13F 315 ~END 
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CTLSA_DISPVEC eeeneeee =X 

CTLSGC_CTLBASVA eeeneeee 8 6X 

CTLSGL_PHD rterrree x 

LIN 8 

FILNAR : 

WAC EAU VECRESET eeereeee 02 

LACSM_EXPREG = 000 : 

1ACSM_M = 

pACSA_P DERGE = 4 

LACSV_EXPREG = 

LAC$V— F URERGE = 6 

IMGACT_E DR 02 

JSB SB ABSOL 2 Fi 
LiBSPO MER 0000 3 RG bs 

LIBSP1_ MERGE 00000 RG 0 
OP$_JS6 = 44 444 18 

PHDSL_FREPIVA = 0000003 

REORDER VECTOR Gs ot R 02 

werA = 00000010 

sss NORMA L = 00000001 

SYSSCMKRNL eeeeeeee GX 0 

SYSSDELTVA eeeeeeen GX 

SYSSIMGACT eeeeeene GX 

SYSSIMGF IX eeeeeree GX 

VECTOR_COUNT = 00000004 

VECTOR_PAGE = 00000100 
VECTOR_SIZE = 00000006 

wer en meee eee eee + 
! Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- 4ABS . 00000000 ( 8. 9} NOPIC USR CON ABS LCL N oe NOEXE NORD a NOVEC BYTE 
$ABSS$ 00000000 < 0.) oF 3: NOPIC USR CON ABS LCL NOSHR EXE R&D T NOVEC BYTE 
_LIBSCODE QOOO0013F ¢ 31 2 ¢ 3°} PIC USR CON REL LCL SHR’ EXE RD NOURT NOVEC BYTE 
seceusvenneseussoesesesce$ 
H ; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 3 :00:00. 

Command processing :00: 

Pass 

gyases table sort 


Pass 
Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 54 
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LIBSnERGE 
VAX-11 Macro Run Statistics 


HY, working sgt Limit was 1200 pages 
96 bytes (96 pages) of virtual memory were used to buffer the intermediate goge 
th re were 9 pages of symbol table hag --F al = d to hold 953 non-loca - local symbols. 
source Lines were read in Pass 1, prod uc ing object records in Pass 
2 pages of virtual memory were used to define macros. 
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+ 
! Macro Library Statistics H 


¢ oes ese moe m een name ei ee neces 


Macro Library name Macros defined 
-§ SSSDUA g: SYS. OB JL1IB.MLB;1 } 
$255$DUA28: CSYSLIBJSTARLET. MLB; 2 1 

TOTALS (all Libraries) 14 


1061 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/DISA=TRACE/LIS=L1S$:LIBMERGE/OBJ=O0BJ$:LIBMERGE MSRC$:LIBMERGE/UPDATE=(ENHS$:LIBMERGE) +EXECMLS$/LIB 
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